10 POKE53280,1:POKE53281,1:CR$=CHR$(13):S$="     "
11 PRINTCHR$(142)"[147][152]"
12 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
13 PRINT"  [221]-[221]-------------------------------[221]-[221]"
14 FORI=0TO8
15 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
16 PRINT"  [221] [221]"SPC(31)"[221] [221]"
17 NEXT
18 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
19 PRINT"  [221]-[221]-------------------------------[221]-[221]"
20 PRINT"  [221][215][221]"SPC(31)"[221][215][221]"
25 PRINT""TAB(10)"[152]LOADSTAR FORMS PRINTER"
26 PRINTTAB(10)"[152]-------- ----- -------"
30 PRINTTAB(8)"1) [151]PRINT SUBMISSION FORM"
40 PRINTTAB(8)"[152]2) [151]PRINT SUBSCRIPTION FORM"
50 PRINTTAB(8)"[152]3) [151]RETURN TO LOADSTAR":POKE198,.
55 PRINTTAB(8)"    [152]PRESS 1, 2 OR 3."
60 GETA$:IFA$<"1"ORA$>"3"THEN60
70 IFA$="2"THEN2000
80 IFA$="3"THEN60000
90 :
1000 GOSUB3000:IFNOT(OK)THEN10
1010 GOSUB4000:IF(AB)THEN10
1020 OPEN4,4,7
1030 PRINT#4,S$;SPC(27)"[211][207][198][212][196][201][211][203], [201]NC."
1040 PRINT#4,S$;SPC(23)"[193]TTENTION: [211]UBMISSIONS"
1050 PRINT#4,S$;SPC(27)"[208].[207]. [194]OX 30008"CR$
1060 PRINT#4,S$;SPC(22)"[208][210][207][199][210][193][205] [211][213][194][205][201][211][211][201][207][206] [198][207][210][205]"CR$
1070 PRINT#4,S$;"[212]HANK YOU FOR YOUR SUBMISSION.  [197]ACH SUBMISSION RECEIVES"
1080 PRINT#4,S$;"CAREFUL EVALUATION AND CONSIDERATION.  [201]T IS OUR GOAL TO"
1090 PRINT#4,S$;"PUBLISH HIGH QUALITY MATERIAL THAT WILL BE OF BENEFIT AND"
1100 PRINT#4,S$;"USE TO OUR READERS."CR$
1110 PRINT#4,S$;"[208]LEASE COMPLETE THIS FORM AND RETURN IT TO US ALONG WITH"
1120 PRINT#4,S$;"YOUR SUBMISSION.  [212]HIS INFORMATION WILL HELP US IN EVALUATING"
1130 PRINT#4,S$;"YOUR WORK.  [208][204]EASE TYPE OR PRINT CLEARLY."CR$
1140 PRINT#4,S$;SPC(25)"[193][194][207][213][212] [212][200][197] [193][213][212][200][207][210]:"CR$
1150 PRINT#4,S$;"[206]AME:........................ [211]OCIAL [211]ECURITY #:............"CR$
1160 PRINT#4,S$;"[193]DDRESS....................................................."CR$
1170 PRINT#4,S$;"[195]ITY:................... [211]TATE:....... [218][201][208]:................."CR$
1180 PRINT#4,S$;"[212]ELEPHONE - [196][193][217]:................ [197][214][197][206][201][206][199]:..................."CR$CR$
1190 PRINT#4,S$;SPC(24)"[193][194][207][213][212] [212][200][197] [211][213][194][205][201][211][211][201][207][206]:"CR$
1200 PRINT#4,S$;"[195]OMPUTER:   ........ [195]OMMODORE 64    ........ [195]OMMODORE 128"CR$
1205 PRINT#4,S$;"[198]ORMAT:     ........ 40 COLUMN       ........ 80 COLUMN"CR$
1210 PRINT#4,S$;"[206]AME OF SUBMISSION:........................................."CR$
1220 PRINT#4,S$;"[208]ROGRAMMING LANGUAGES USED:................................."CR$
1230 PRINT#4,S$;"[211]TART-UP FILENAME:.........................................."CR$
1240 PRINT#4,S$;"[198]ILES USED:................................................."CR$
1250 PRINT#4,S$;"           ................................................."CR$
1260 PRINT#4,S$;"[208]URPOSE:...................................................."CR$CR$
1270 PRINT#4,S$;"[201], ............................, HEREBY CERTIFY THAT AS OF"
1280 PRINT#4,S$;".................. THE SUBMISSION DESCRIBED ABOVE AND IN THE"
1290 PRINT#4,S$;"ACCOMPANYING DOCUMENTATION IS MY OWN ORIGINAL WORK AND THAT"
1300 PRINT#4,S$;"IT HAS NOT BEEN PREVIOUSLY PUBLISHED AND IS NOT CURRENTLY"
1310 PRINT#4,S$;"UNDER CONSIDERATION BY ANOTHER PUBLISHER."CR$
1320 PRINT#4,S$;"[206][207][212][197]: [193]DVENTURE GAMES REQUIRE COMPLETE MAPS AND COMPLETE"
1330 PRINT#4,S$;"SOLUTIONS.  [211]OURCE CODE [205][213][211][212] ACCOMPANY MACHINE LANGUAGE"
1340 PRINT#4,S$;"FILES.  [211]UBMISSIONS MUST BE ON A 5 1/4"CHR$(34)" DISK.  [208]ROGRAMS MUST"
1350 PRINT#4,S$;"INCLUDE ALL FILES NECESSARY TO RUN THEM (THIS INCLUDES"
1360 PRINT#4,S$;"DOCUMENTATION ON USE OF THE PROGRAM)."CR$
1370 PRINT#4,S$;"[193]LL SUBMISSIONS (DISKS AND ACCOMPANYING PRINTED MATERIAL)"
1380 PRINT#4,S$;"[205][213][211][212] BE LABELED WITH THE AUTHOR'S NAME, COMPLETE ADDRESS,"
1390 PRINT#4,S$;"TELEPHONE NUMBER(S), SUBMISSION NAME AND TYPE OF COMPUTER."
1410 PRINT#4:CLOSE4:GOTO10
2000 GOSUB3000:IFOK=0THEN10
2010 GOSUB4000:IF(AB)THEN10
2020 OPEN4,4,7
2022 PRINT#4,SPC(25)"[204][207][193][196][211][212][193][210] [211]UBSCRIPTION [210]ATES"CR$CR$
2024 PRINT#4,SPC(8)"[196][207][205][197][211][212][201][195]"SPC(15)"[195][193][206][193][196][193] AND [205][197][216][201][195][207]"SPC(10)"[207][212][200][197][210] [198][207][210][197][201][199][206]"
2026 PRINT#4
2028 PRINT#4,"..... 3 ISSUES - $19.95"SPC(4)"..... 3 ISSUES - $24.95";
2030 PRINT#4,SPC(3)"..... 3 ISSUES - $27.95"CR$
2032 PRINT#4,"..... 6 ISSUES - $39.95"SPC(4)"..... 6 ISSUES - $49.95";
2034 PRINT#4,SPC(3)"..... 6 ISSUES - $59.95"CR$
2036 PRINT#4,"..... 12 ISSUES - $69.95"SPC(3)"..... 12 ISSUES - $79.95";
2038 PRINT#4,SPC(2)"..... 12 ISSUES - $99.95"CR$
2040 PRINT#4,"..... 24 ISSUES - $119.95"SPC(2)"..... 24 ISSUES - $129.95";
2042 PRINT#4," ..... 24 ISSUES - $169.95"CR$CR$
2044 PRINT#4,SPC(23)"[204]OUISIANA RESIDENTS ADD 4% SALES TAX."CR$CR$CR$
2046 PRINT#4,SPC(30)"[208][204][197][193][211][197] [208][210][201][206][212]"CR$CR$
2048 PRINT#4,SPC(15)"[206]AME:........................................."CR$
2050 PRINT#4,SPC(15)"[193]DDRESS:......................................"CR$
2052 PRINT#4,SPC(15)"[195]ITY:........................................."CR$
2054 PRINT#4,SPC(15)"[211]TATE AND [218][201][208]:................................"CR$CR$
2060 PRINT#4,SPC(15)"......[205]ASTERCARD"SPC(10)"......[196][201][211][195][207][214][197][210]"CR$
2062 PRINT#4,SPC(15)"......[214][201][211][193]"SPC(16)"......[193]MERICAN [197]XPRESS"CR$CR$
2064 PRINT#4,SPC(15)"[195]ARD [206]UMBER:............................."CR$
2066 PRINT#4,SPC(15)"[197]XPIRATION [196]ATE:........................."CR$CR$CR$
2068 PRINT#4,SPC(15)"[211]IGNATURE:..............................."CR$
2100 PRINT#4:CLOSE4:GOTO10
3000 OK=0:OPEN15,4,15:CLOSE15
3010 IFST=0THENOK=-1:RETURN
3030 PRINT"ERROR:  PRINTER NOT READY!"
3040 FORA=1TO2000:NEXT:RETURN
3050 :
4000 PRINT"SET PRINTER TO TOP OF PAPER "
4010 PRINT"      PRESS SPACE TO PRINT"
4015 PRINT"         OR A TO ABORT"
4020 GETA$:IFA$<>"A"ANDA$<>" "THEN4020
4030 AB=.:IFA$="A"THENAB=-1
4040 RETURN
4050 :
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 PRINT"[147]":POKE53281,7
60030 PRINT"[158]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
60040 PRINT"RUN"
60050 POKE631,13:POKE632,13:POKE198,2